Tiger Disk 28/Tiger_Disk_028_19xx_Tiger-Crew-Disk_de_Side_A.d64/si.ba. fractal 2

Commodore BASIC | 2023-02-26 | 364b | 11 lines

5 D1,0:D0,0:D7,10,9:xm=105:ym=105
6 xc=.77:yc=.6:t=22:s=40
7 xl=-1.4:xr=1.4:yo=-.9:yu=1.2
8 dx=(xr-xl)/xm:dy=(yu-yo)/ym
9 forn=0toym:y1=yo+n*dy:form=0toxm:x=xl+m*dx:y=y1:k=0
10 x2=x*x:y2=y*y:y=2*x*y-yc:x=x2-y2-xc:k=k+1:if(k<t)and(x2+y2<s)then10
11 u=m+53-n/2:u1=u+1:v=n+80:v1=v-3*(k-1)
12 D u,v,u,v1,3:D u1,v,u1,v1,2:D u,v1,u1,v1,1
13 next:next
14 wait198,255